home *** CD-ROM | disk | FTP | other *** search
/ PC Users 1999 April / Cd Pc Users extra 19 abril 1999.iso / Prog / Inst / addin / About.frm (.txt) next >
Encoding:
Visual Basic Form  |  1997-03-04  |  5.6 KB  |  168 lines
  1. VERSION 4.00
  2. Begin VB.Form AboutDialog 
  3.    BackColor       =   &H00000000&
  4.    BorderStyle     =   3  'Fixed Dialog
  5.    Caption         =   "Property Setter"
  6.    ClientHeight    =   5145
  7.    ClientLeft      =   780
  8.    ClientTop       =   525
  9.    ClientWidth     =   4935
  10.    ControlBox      =   0   'False
  11.    Height          =   5550
  12.    Left            =   720
  13.    LinkTopic       =   "Form1"
  14.    MaxButton       =   0   'False
  15.    MinButton       =   0   'False
  16.    ScaleHeight     =   5145
  17.    ScaleWidth      =   4935
  18.    ShowInTaskbar   =   0   'False
  19.    Top             =   180
  20.    Width           =   5055
  21.    Begin VB.CommandButton CmdOk 
  22.       Cancel          =   -1  'True
  23.       Caption         =   "OK"
  24.       Default         =   -1  'True
  25.       Height          =   495
  26.       Left            =   2040
  27.       TabIndex        =   2
  28.       Top             =   4560
  29.       Width           =   855
  30.    End
  31.    Begin VB.Label InstrLabel 
  32.       Appearance      =   0  'Flat
  33.       BackColor       =   &H80000005&
  34.       BackStyle       =   0  'Transparent
  35.       Caption         =   $"About.frx":0000
  36.       ForeColor       =   &H80000008&
  37.       Height          =   615
  38.       Index           =   3
  39.       Left            =   240
  40.       TabIndex        =   6
  41.       Top             =   3720
  42.       Width           =   4455
  43.       WordWrap        =   -1  'True
  44.    End
  45.    Begin VB.Label InstrLabel 
  46.       Appearance      =   0  'Flat
  47.       BackColor       =   &H80000005&
  48.       BackStyle       =   0  'Transparent
  49.       Caption         =   $"About.frx":0090
  50.       ForeColor       =   &H80000008&
  51.       Height          =   615
  52.       Index           =   2
  53.       Left            =   240
  54.       TabIndex        =   5
  55.       Top             =   3000
  56.       Width           =   4455
  57.       WordWrap        =   -1  'True
  58.    End
  59.    Begin VB.Label InstrLabel 
  60.       Appearance      =   0  'Flat
  61.       BackColor       =   &H80000005&
  62.       BackStyle       =   0  'Transparent
  63.       Caption         =   "Enter a value in the Value: box and press the Set Values button to give the controls that value."
  64.       ForeColor       =   &H80000008&
  65.       Height          =   495
  66.       Index           =   1
  67.       Left            =   240
  68.       TabIndex        =   4
  69.       Top             =   2520
  70.       Width           =   4455
  71.       WordWrap        =   -1  'True
  72.    End
  73.    Begin VB.Label InstrLabel 
  74.       Appearance      =   0  'Flat
  75.       BackColor       =   &H80000005&
  76.       BackStyle       =   0  'Transparent
  77.       Caption         =   "Enter the name of a property in the Name: box. Press the Get Values button to see the property values for the selected controls."
  78.       ForeColor       =   &H80000008&
  79.       Height          =   855
  80.       Index           =   0
  81.       Left            =   240
  82.       TabIndex        =   3
  83.       Top             =   1800
  84.       Width           =   4455
  85.       WordWrap        =   -1  'True
  86.    End
  87.    Begin VB.Image Image1 
  88.       Height          =   795
  89.       Left            =   120
  90.       Picture         =   "About.frx":0126
  91.       Top             =   120
  92.       Width           =   4695
  93.    End
  94.    Begin VB.Label RightsLabel 
  95.       Alignment       =   2  'Center
  96.       BackStyle       =   0  'Transparent
  97.       Caption         =   "All rights reserved"
  98.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  99.          Name            =   "MS Sans Serif"
  100.          Size            =   9.75
  101.          Charset         =   0
  102.          Weight          =   700
  103.          Underline       =   0   'False
  104.          Italic          =   0   'False
  105.          Strikethrough   =   0   'False
  106.       EndProperty
  107.       ForeColor       =   &H0000FF00&
  108.       Height          =   255
  109.       Left            =   120
  110.       TabIndex        =   1
  111.       Top             =   1320
  112.       Width           =   4695
  113.    End
  114.    Begin VB.Label Label1 
  115.       Alignment       =   2  'Center
  116.       BackStyle       =   0  'Transparent
  117.       Caption         =   "Copyright 1997, John Wiley && Sons, Inc."
  118.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  119.          Name            =   "MS Sans Serif"
  120.          Size            =   9.75
  121.          Charset         =   0
  122.          Weight          =   700
  123.          Underline       =   0   'False
  124.          Italic          =   0   'False
  125.          Strikethrough   =   0   'False
  126.       EndProperty
  127.       ForeColor       =   &H0000FF00&
  128.       Height          =   255
  129.       Index           =   0
  130.       Left            =   120
  131.       TabIndex        =   0
  132.       Top             =   960
  133.       Width           =   4695
  134.    End
  135.    Begin VB.Shape Shape1 
  136.       BorderColor     =   &H00008000&
  137.       BorderWidth     =   3
  138.       FillColor       =   &H0080FF80&
  139.       FillStyle       =   0  'Solid
  140.       Height          =   2775
  141.       Left            =   120
  142.       Top             =   1680
  143.       Width           =   4695
  144.    End
  145. Attribute VB_Name = "AboutDialog"
  146. Attribute VB_Creatable = False
  147. Attribute VB_Exposed = False
  148. ' ************************************************
  149. ' Property Setter About dialog.
  150. ' ************************************************
  151. Option Explicit
  152. Private Sub CmdOk_Click()
  153.     Unload Me
  154. End Sub
  155. Private Sub Form_Activate()
  156.     SetFocus
  157. End Sub
  158. ' ************************************************
  159. ' Initialize form variables.
  160. ' ************************************************
  161. Private Sub Form_Load()
  162.     ' Add a copyright symbol.
  163.     Label1(0).Caption = Chr$(169) & Label1(0).Caption
  164.     ' Center the form.
  165.     Left = (Screen.Width - Width) / 2
  166.     Top = (Screen.Height - Height) / 2
  167. End Sub
  168.